home *** CD-ROM | disk | FTP | other *** search
/ Shirley Barber's Fairies: Create, Paint & Play / Fairies.iso / pc / Files / Menu.dxr / Internal_11_Check Globals.ls < prev    next >
Encoding:
Text File  |  2003-11-06  |  1.3 KB  |  49 lines
  1. global scrWidth, scrHeight, scrDepth, IsSpellbound
  2.  
  3. on prepareMovie
  4.   cursor(200)
  5.   if the platform contains "Windows,32" then
  6.     set the exitLock to 1
  7.     funcs = baRegister("konrad", 2320493)
  8.     IsSpellbound = 0
  9.     CopyCheck()
  10.     put IsSpellbound
  11.     repeat while IsSpellbound = 0
  12.       Answer = baMsgBox("The Game CD must be in the computer to run!", "CD Not in the computer...", "RetryCancel", "Question", 1)
  13.       if Answer = "Cancel" then
  14.         Ok = baSetDisplay(scrWidth, scrHeight, scrDepth, "temp", 0)
  15.         baDisableSwitching(0)
  16.         OldSS = baDisableScreenSaver(0)
  17.         KeysOff = baDisableKeys(0, baWinHandle())
  18.         quit()
  19.       end if
  20.       CopyCheck()
  21.     end repeat
  22.     if voidp(scrWidth) then
  23.       scrWidth = baScreenInfo("width")
  24.     end if
  25.     if voidp(scrHeight) then
  26.       scrHeight = baScreenInfo("height")
  27.     end if
  28.     if voidp(scrDepth) then
  29.       scrDepth = baScreenInfo("depth")
  30.     end if
  31.   end if
  32. end
  33.  
  34. on CopyCheck
  35.   DiskList = []
  36.   CDList = []
  37.   IsSpellbound = 0
  38.   DiskList = baDiskList()
  39.   repeat with c = 1 to count(DiskList)
  40.     DiskList[c] = chars(DiskList[c], 1, 1)
  41.     if baDiskInfo(DiskList[c], "type") = "CD-ROM" then
  42.       if baDiskInfo(DiskList[c], "name") = "Fairies" then
  43.         IsSpellbound = 1
  44.       end if
  45.       add(CDList, DiskList[c])
  46.     end if
  47.   end repeat
  48. end
  49.